home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / wantto1a / form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-08-18  |  11.7 KB  |  473 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    BackColor       =   &H80000009&
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "Form1"
  6.    ClientHeight    =   9000
  7.    ClientLeft      =   0
  8.    ClientTop       =   0
  9.    ClientWidth     =   12000
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   9000
  12.    ScaleWidth      =   12000
  13.    ShowInTaskbar   =   0   'False
  14.    StartUpPosition =   3  'Windows Default
  15.    WindowState     =   2  'Maximized
  16.    Begin VB.Timer Timer2 
  17.       Enabled         =   0   'False
  18.       Interval        =   100
  19.       Left            =   120
  20.       Top             =   3120
  21.    End
  22.    Begin VB.CommandButton Command1 
  23.       BackColor       =   &H8000000E&
  24.       Caption         =   "D I E"
  25.       BeginProperty Font 
  26.          Name            =   "FZ JAZZY 10 3D"
  27.          Size            =   14.25
  28.          Charset         =   0
  29.          Weight          =   700
  30.          Underline       =   0   'False
  31.          Italic          =   0   'False
  32.          Strikethrough   =   0   'False
  33.       EndProperty
  34.       Height          =   525
  35.       Left            =   4080
  36.       Style           =   1  'Graphical
  37.       TabIndex        =   0
  38.       Top             =   2040
  39.       Width           =   1335
  40.    End
  41.    Begin VB.Timer Timer1 
  42.       Enabled         =   0   'False
  43.       Interval        =   1
  44.       Left            =   120
  45.       Top             =   2760
  46.    End
  47.    Begin VB.Label Label4 
  48.       BackStyle       =   0  'Transparent
  49.       BeginProperty Font 
  50.          Name            =   "Comic Sans MS"
  51.          Size            =   9.75
  52.          Charset         =   0
  53.          Weight          =   700
  54.          Underline       =   0   'False
  55.          Italic          =   0   'False
  56.          Strikethrough   =   0   'False
  57.       EndProperty
  58.       ForeColor       =   &H00FF0000&
  59.       Height          =   1335
  60.       Left            =   4680
  61.       TabIndex        =   5
  62.       Top             =   1800
  63.       Width           =   2895
  64.    End
  65.    Begin VB.Label Label2 
  66.       BackStyle       =   0  'Transparent
  67.       BeginProperty Font 
  68.          Name            =   "Comic Sans MS"
  69.          Size            =   8.25
  70.          Charset         =   0
  71.          Weight          =   700
  72.          Underline       =   0   'False
  73.          Italic          =   0   'False
  74.          Strikethrough   =   0   'False
  75.       EndProperty
  76.       ForeColor       =   &H0000FFFF&
  77.       Height          =   855
  78.       Left            =   1800
  79.       TabIndex        =   4
  80.       Top             =   2760
  81.       Width           =   2895
  82.    End
  83.    Begin VB.Label Label3 
  84.       BackStyle       =   0  'Transparent
  85.       ForeColor       =   &H0000FFFF&
  86.       Height          =   375
  87.       Left            =   1920
  88.       TabIndex        =   3
  89.       Top             =   2640
  90.       Width           =   1455
  91.    End
  92.    Begin VB.Label Label1 
  93.       BackStyle       =   0  'Transparent
  94.       Caption         =   "o"
  95.       BeginProperty Font 
  96.          Name            =   "Comic Sans MS"
  97.          Size            =   8.25
  98.          Charset         =   0
  99.          Weight          =   700
  100.          Underline       =   0   'False
  101.          Italic          =   0   'False
  102.          Strikethrough   =   0   'False
  103.       EndProperty
  104.       ForeColor       =   &H8000000E&
  105.       Height          =   255
  106.       Left            =   3720
  107.       TabIndex        =   2
  108.       Top             =   3840
  109.       Width           =   4095
  110.    End
  111.    Begin VB.Label Label7 
  112.       BackStyle       =   0  'Transparent
  113.       Caption         =   "
  114.       BeginProperty Font 
  115.          Name            =   "Arial"
  116.          Size            =   8.25
  117.          Charset         =   0
  118.          Weight          =   400
  119.          Underline       =   0   'False
  120.          Italic          =   0   'False
  121.          Strikethrough   =   0   'False
  122.       EndProperty
  123.       ForeColor       =   &H8000000E&
  124.       Height          =   9015
  125.       Left            =   360
  126.       TabIndex        =   1
  127.       Top             =   1320
  128.       Width           =   12015
  129.    End
  130.    Begin VB.Image Image12 
  131.       Height          =   4320
  132.       Left            =   8280
  133.       Picture         =   "Form1.frx":0000
  134.       Top             =   1920
  135.       Width           =   3240
  136.    End
  137.    Begin VB.Image Image11 
  138.       Height          =   4320
  139.       Left            =   7560
  140.       Picture         =   "Form1.frx":2DAD
  141.       Top             =   1920
  142.       Width           =   3240
  143.    End
  144.    Begin VB.Image Image10 
  145.       Height          =   4320
  146.       Left            =   6480
  147.       Picture         =   "Form1.frx":697C
  148.       Top             =   1800
  149.       Width           =   3240
  150.    End
  151.    Begin VB.Image Image9 
  152.       Height          =   4320
  153.       Left            =   6480
  154.       Picture         =   "Form1.frx":AA31
  155.       Top             =   1800
  156.       Width           =   3240
  157.    End
  158.    Begin VB.Image Image8 
  159.       Height          =   4320
  160.       Left            =   6480
  161.       Picture         =   "Form1.frx":D8FA
  162.       Top             =   1800
  163.       Width           =   3240
  164.    End
  165.    Begin VB.Image Image7 
  166.       Height          =   4320
  167.       Left            =   6360
  168.       Picture         =   "Form1.frx":10406
  169.       Top             =   1800
  170.       Width           =   3240
  171.    End
  172.    Begin VB.Image Image6 
  173.       Height          =   4320
  174.       Left            =   6360
  175.       Picture         =   "Form1.frx":12EA1
  176.       Top             =   1680
  177.       Width           =   3240
  178.    End
  179.    Begin VB.Image Image5 
  180.       Height          =   4320
  181.       Left            =   720
  182.       Picture         =   "Form1.frx":1560E
  183.       Top             =   1920
  184.       Width           =   3240
  185.    End
  186.    Begin VB.Image Image4 
  187.       Height          =   4320
  188.       Left            =   720
  189.       Picture         =   "Form1.frx":18449
  190.       Top             =   1920
  191.       Width           =   3240
  192.    End
  193.    Begin VB.Image Image3 
  194.       Height          =   4320
  195.       Left            =   720
  196.       Picture         =   "Form1.frx":1AE8A
  197.       Top             =   1920
  198.       Width           =   3240
  199.    End
  200.    Begin VB.Image Image2 
  201.       Height          =   4320
  202.       Left            =   720
  203.       Picture         =   "Form1.frx":1E1FE
  204.       Top             =   1920
  205.       Width           =   3240
  206.    End
  207.    Begin VB.Image Image1 
  208.       Height          =   4320
  209.       Left            =   720
  210.       Picture         =   "Form1.frx":216AB
  211.       Top             =   1920
  212.       Width           =   3240
  213.    End
  214. Attribute VB_Name = "Form1"
  215. Attribute VB_GlobalNameSpace = False
  216. Attribute VB_Creatable = False
  217. Attribute VB_PredeclaredId = True
  218. Attribute VB_Exposed = False
  219. Private Sub Command1_Click()
  220. End Sub
  221. Private Sub Form_Load()
  222. StayOnTop Me
  223. Timer1 = True
  224. End Sub
  225. Private Sub Timer1_Timer()
  226. Command1.Visible = False
  227. 'Label2.Visible = False
  228. Label4.Visible = True
  229. Label7.Visible = False
  230. Image1.Visible = False
  231. Image2.Visible = False
  232. Image3.Visible = False
  233. Image4.Visible = False
  234. Image5.Visible = False
  235. Image7.Visible = False
  236. Image8.Visible = False
  237. Image9.Visible = False
  238. Image10.Visible = False
  239. Image11.Visible = False
  240. Image12.Visible = False
  241. 'label2
  242. 'label4
  243. TimeOut 0.1
  244. Label1 = ""
  245. TimeOut 0.2
  246. Image1.Visible = True
  247. Image6.Visible = True
  248. 'Label2.Visible = True
  249. Label2 = " Fuck you pig you cant fuck with ReV"
  250. TimeOut 2.1
  251. Label2 = ""
  252. Label4 = " You Hood rat you are under arrest"
  253. TimeOut 2.3
  254. Label4 = ""
  255. Label2 = " hehehe shut the fuck up pig before you die"
  256. TimeOut 2.3
  257. Label2 = ""
  258. Label4 = " Hehe you ErrorR member you wont do shit"
  259. TimeOut 2.3
  260. Label4 = ""
  261. Label2 = " Just for that you going to die....  "
  262. PlayWav ("Fuck-j00.wav")
  263. 'Label4.Visible = True
  264. Label4 = ""
  265. TimeOut 2.2
  266. Label2 = ""
  267. TimeOut 0.1
  268. Image1.Visible = False
  269. TimeOut 0.1
  270. Image2.Visible = True
  271. TimeOut 0.1
  272. Image2.Visible = False
  273. TimeOut 0.2
  274. Image3.Visible = True
  275. TimeOut 0.1
  276. Image3.Visible = False
  277. Image6.Visible = False
  278. Image7.Visible = True
  279. TimeOut 0.2
  280. Image4.Visible = True
  281. TimeOut 0.1
  282. Image4.Visible = False
  283. TimeOut 0.1
  284. Label1 = "    o "
  285. TimeOut 0.1
  286. Image5.Visible = True
  287. TimeOut 0.1
  288. Image5.Visible = False
  289. TimeOut 0.1
  290. Label1 = "         o           o"
  291. TimeOut 0.2
  292. Image4.Visible = True
  293. TimeOut 0.1
  294. 'Image7.Visible = False
  295. Image4.Visible = False
  296. TimeOut 0.1
  297. Label1 = "      o               o              o"
  298. TimeOut 0.2
  299. Image5.Visible = True
  300. TimeOut 0.1
  301. Image5.Visible = False
  302. TimeOut 0.1
  303. Label1 = "      o                   o               o              O"
  304. TimeOut 0.2
  305. Image4.Visible = True
  306. Image7.Visible = False
  307. Image8.Visible = True
  308. TimeOut 0.1
  309. Image4.Visible = False
  310. TimeOut 0.1
  311. Label1 = "      o               o               o              O            O"
  312. TimeOut 0.2
  313. Image5.Visible = True
  314. TimeOut 0.1
  315. Image8.Visible = False
  316. Image9.Visible = True
  317. Image5.Visible = False
  318. TimeOut 0.1
  319. Label1 = "    o           o               o              O"
  320. TimeOut 0.2
  321. Image9.Visible = False
  322. Image10.Visible = True
  323. Image4.Visible = True
  324. TimeOut 0.1
  325. Image4.Visible = False
  326. TimeOut 0.1
  327. Label1 = "      o             o         o            O"
  328. TimeOut 0.2
  329. Label1 = ""
  330. Image5.Visible = True
  331. Image10.Visible = False
  332. Image11.Visible = True
  333. TimeOut 0.1
  334. Image5.Visible = False
  335. Image11.Visible = False
  336. Image1.Visible = True
  337. Image12.Visible = True
  338. TimeOut 0.1
  339. Label2 = " heheheh Dont ever fuck with ErrorR"
  340. TimeOut 2.5
  341. Label2 = ""
  342. Image1.Visible = False
  343. Image2.Visible = False
  344. Image12.Visible = False
  345. Label1 = ""
  346. Timer1.Enabled = False
  347. Timer2.Enabled = True
  348. 'Command1.Visible = True
  349. End Sub
  350. Private Sub Timer2_Timer()
  351. Label7.Visible = True
  352. Label7.FontSize = 10
  353. TimeOut 0.01
  354. Label7.FontSize = 20
  355. TimeOut 0.01
  356. Label7.FontSize = 30
  357. TimeOut 0.01
  358. Label7.FontSize = 40
  359. TimeOut 0.01
  360. Label7.FontSize = 50
  361. TimeOut 0.01
  362. Label7.FontSize = 60
  363. TimeOut 0.01
  364. Label7.FontSize = 70
  365. TimeOut 0.01
  366. Label7.FontSize = 80
  367. TimeOut 0.01
  368. Label7.FontSize = 90
  369. TimeOut 0.01
  370. Label7.FontSize = 100
  371. TimeOut 0.01
  372. Label7.FontSize = 110
  373. TimeOut 0.01
  374. Label7.FontSize = 120
  375. TimeOut 0.01
  376. Label7.FontSize = 130
  377. TimeOut 0.01
  378. Label7.FontSize = 140
  379. TimeOut 0.01
  380. Label7.FontSize = 150
  381. TimeOut 0.01
  382. Label7.FontSize = 160
  383. TimeOut 0.01
  384. Label7.FontSize = 170
  385. TimeOut 0.01
  386. Label7.FontSize = 180
  387. TimeOut 0.01
  388. Label7.FontSize = 190
  389. TimeOut 0.01
  390. Label7.FontSize = 200
  391. TimeOut 0.01
  392. Label7.FontSize = 210
  393. TimeOut 0.01
  394. Label7.FontSize = 220
  395. TimeOut 0.01
  396. Label7.FontSize = 230
  397. TimeOut 0.01
  398. Label7.FontSize = 240
  399. TimeOut 0.01
  400. Label7.FontSize = 250
  401. TimeOut 0.01
  402. Label7.FontSize = 260
  403. TimeOut 0.01
  404. Label7.FontSize = 270
  405. TimeOut 0.01
  406. Label7.FontSize = 280
  407. TimeOut 0.01
  408. Label7.FontSize = 290
  409. TimeOut 0.01
  410. Label7.FontSize = 300
  411. TimeOut 0.01
  412. Label7.FontSize = 310
  413. TimeOut 0.01
  414. Label7.FontSize = 320
  415. TimeOut 0.01
  416. Label7.FontSize = 330
  417. TimeOut 0.01
  418. Label7.FontSize = 340
  419. TimeOut 0.01
  420. Label7.FontSize = 350
  421. TimeOut 0.01
  422. Label7.FontSize = 360
  423. Label7.Visible = False
  424. Command1.Visible = True
  425. Command1.Visible = True
  426. Command1.Width = 100
  427. TimeOut 0.01
  428. Command1.Width = 200
  429. TimeOut 0.01
  430. Command1.Width = 300
  431. TimeOut 0.01
  432. Command1.Width = 400
  433. TimeOut 0.01
  434. Command1.Width = 500
  435. TimeOut 0.01
  436. Command1.Width = 600
  437. TimeOut 0.01
  438. Command1.Width = 700
  439. TimeOut 0.01
  440. Command1.Width = 800
  441. TimeOut 0.01
  442. Command1.Width = 900
  443. TimeOut 0.01
  444. Command1.Width = 1000
  445. TimeOut 0.01
  446. Command1.Width = 1100
  447. TimeOut 0.01
  448. Command1.Width = 1200
  449. TimeOut 0.01
  450. Command1.Width = 1300
  451. TimeOut 0.01
  452. Command1.Width = 1400
  453. TimeOut 0.01
  454. Command1.Width = 1500
  455. TimeOut 0.01
  456. Command1.Width = 1600
  457. TimeOut 0.01
  458. Command1.Width = 1700
  459. TimeOut 0.01
  460. Command1.Width = 1800
  461. TimeOut 0.01
  462. Command1.Width = 1900
  463. TimeOut 0.01
  464. Command1.Width = 2000
  465. TimeOut 0.01
  466. Command1.Width = 2100
  467. TimeOut 0.01
  468. Command1.Width = 2200
  469. TimeOut 0.01
  470. Command1.Width = 2300
  471. Timer2.Enabled = False
  472. End Sub
  473.